home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
graphics
/
gnuplot
/
term
/
texdraw.trm
(
.txt
)
< prev
next >
Wrap
LaTeX Document
|
1993-09-15
|
8KB
|
213 lines
* $Id: texdraw.trm%v 3.50 1993/07/09 05:35:24 woo Exp $
/* GNUPLOT - texdraw.trm */
* Copyright (C) 1990
* Permission to use, copy, and distribute this software and its
* documentation for any purpose with or without fee is hereby granted,
* provided that the above copyright notice appear in all copies and
* that both that copyright notice and this permission notice appear
* in supporting documentation.
* Permission to modify the software is granted, but not the right to
* distribute the modified code. Modifications are to be distributed
* as patches to released version.
* This software is provided "as is" without express or implied warranty.
* This file is included by ../term.c.
* This terminal driver supports:
* The TEXDRAW macros for LaTeX.
* AUTHORS
* Khun Yee Fung. Modified from eepic.trm.
* clipper@csd.uwo.ca
* January 20, 1992
* send your comments or suggestions to (info-gnuplot@dartmouth.edu).
* This file contains the texdraw terminal driver, intended for use with the
* texdraw macro package for LaTeX. This is an alternative to the
* latex driver. You need texdraw.sty, and texdraw.tex in the texdraw package.
#define TEXDRAW_PTS_PER_INCH (72.27)
#define DOTS_PER_INCH (300) /* resolution of printer we expect to use */
#define TEXDRAW_UNIT (TEXDRAW_PTS_PER_INCH/DOTS_PER_INCH) /* dot size in pt */
/* 5 inches wide by 3 inches high (default) */
#define TEXDRAW_XMAX (5*DOTS_PER_INCH)
#define TEXDRAW_YMAX (3*DOTS_PER_INCH)
#define TEXDRAW_HTIC (5*DOTS_PER_INCH/72) /* (5./TEXDRAW_UNIT) */
#define TEXDRAW_VTIC (5*DOTS_PER_INCH/72) /* (5./TEXDRAW_UNIT) */
#define TEXDRAW_HCHAR (DOTS_PER_INCH*53/10/72) /* (5.3/TEXDRAW_UNIT) */
#define TEXDRAW_VCHAR (DOTS_PER_INCH*11/72) /* (11./TEXDRAW_UNIT) */
static unsigned int TEXDRAW_posx;
static unsigned int TEXDRAW_posy;
enum JUSTIFY TEXDRAW_justify = LEFT;
enum JUSTIFY TEXDRAW_last_justify = LEFT;
static int TEXDRAW_angle = 0;
static float TEXDRAW_scalefactor = 0.2409;
static double TEXDRAW_xscale = 1.0, TEXDRAW_yscale = 1.0;
/* for DOTS point style */
#define TEXDRAW_TINY_DOT "\\htext{$\\cdot$}"
/* POINTS */
#define TEXDRAW_POINT_TYPES 12 /* we supply more point types */
static char GPFAR * GPFAR TEXDRAW_points[] =
"\\rmove(0 4)\\htext{$\\Diamond$}",
"\\htext{$+$}",
"\\rmove(0 4)\\htext{$\\Box$}",
"\\htext{$\\times$}",
"\\htext{$\\triangle$}",
"\\htext{$\\star$}",
"\\lcir f:9",
"\\lcir f:12",
"\\lcir f:16",
"\\fcir f:0.9 r:9",
"\\fcir f:0.9 r:12",
"\\fcir f:0.9 r:16"
/* LINES */
#define TEXDRAW_NUMLINES 5 /* number of linetypes below */
static int TEXDRAW_lines[] =
4, /* -2 border */
3, /* -1 axes */
3, /* 0 solid thin */
4, /* 1 solid thick */
6, /* 2 solid Thick */
static int TEXDRAW_last_type = 0; /* The line type selected most recently */
static int TEXDRAW_type; /* current line type */
static TBOOLEAN TEXDRAW_inline = FALSE; /* are we in the middle of a line */
static void TEXDRAW_endline(); /* terminate any line in progress */
static int TEXDRAW_linecount = 0; /* number of points in line so far */
#define TEXDRAW_LINEMAX 5 /* max value for linecount */
TEXDRAW_init()
TEXDRAW_posx = TEXDRAW_posy = 0;
TEXDRAW_linetype(-1);
fprintf(outfile, "%% GNUPLOT: LaTeX using TEXDRAW macros\n");
TEXDRAW_scale(xs, ys)
double xs, ys; /* scaling factors */
register struct termentry *t = &term_tbl[term];
/* we change the table for use in graphics.c */
t->xmax = (unsigned int) (TEXDRAW_XMAX * xs);
t->ymax = (unsigned int) (TEXDRAW_YMAX * ys);
TEXDRAW_xscale = xs;
TEXDRAW_yscale = ys;
return (TRUE);
TEXDRAW_graphics()
static char GPFAR tdg1[] = "\
\\begin{texdraw}\n\
\\normalsize\n\
\\ifx\\pathDEFINED\\relax\\else\\let\\pathDEFINED\\relax\n\
\\def\\QtGfr{\\ifx (\\TGre \\let\\YhetT\\cpath\\else\\let\\YhetT\\relax\\fi\\YhetT}\n\
\\def\\path (#1 #2){\\move (#1 #2)\\futurelet\\TGre\\QtGfr}\n\
\\def\\cpath (#1 #2){\\lvec (#1 #2)\\futurelet\\TGre\\QtGfr}\n\
\\fi\n\
\\drawdim pt\n\
\\setunitscale %2.2f\n\
\\linewd %d\n\
\\textref h:L v:C\n";
fprintf(outfile, tdg1,
TEXDRAW_scalefactor,
TEXDRAW_lines[2]);
TEXDRAW_last_type = 0;
TEXDRAW_type = 0;
TEXDRAW_text()
TEXDRAW_endline();
fprintf(outfile, "\\end{texdraw}\n");
TEXDRAW_linetype(linetype)
int linetype;
TEXDRAW_endline();
if (linetype >= TEXDRAW_NUMLINES - 2)
linetype %= (TEXDRAW_NUMLINES - 2);
TEXDRAW_type = linetype;
TEXDRAW_move(x, y)
unsigned int x, y;
TEXDRAW_endline();
TEXDRAW_posx = x;
TEXDRAW_posy = y;
TEXDRAW_point(x, y, number)
unsigned int x, y;
int number;
TEXDRAW_move(x, y);
/* Print the character defined by 'number'; number < 0 means
to use a dot, otherwise one of the defined points. */
fprintf(outfile, "\\move (%d %d)\n",
(int)((double) x * TEXDRAW_xscale),
(int)((double) y * TEXDRAW_yscale));
if (TEXDRAW_last_justify != CENTRE) {
fprintf(outfile, "\\textref h:C v:C ");
TEXDRAW_last_justify = CENTRE;
fprintf(outfile, "%s\n",
(number < 0 ?
TEXDRAW_TINY_DOT :
TEXDRAW_points[number % TEXDRAW_POINT_TYPES]));
TEXDRAW_vector(ux, uy)
unsigned int ux, uy;
if (!TEXDRAW_inline) {
TEXDRAW_inline = TRUE;
/* Start a new line. This depends on line type */
if (TEXDRAW_type != TEXDRAW_last_type){
if (TEXDRAW_lines[TEXDRAW_type+2] != TEXDRAW_lines[TEXDRAW_last_type+2])
fprintf(outfile, "\\linewd %d\n", TEXDRAW_lines[TEXDRAW_type + 2]);
TEXDRAW_last_type = TEXDRAW_type;
}
fprintf(outfile, "\\path (%d %d)",
(int)((double) TEXDRAW_posx * TEXDRAW_xscale),
(int)((double) TEXDRAW_posy * TEXDRAW_yscale));
TEXDRAW_linecount = 1;
else {
/* Even though we are in middle of a path,
* we may want to start a new path command.
* If they are too long then latex will choke.
*/
if (TEXDRAW_linecount++ >= TEXDRAW_LINEMAX) {
fprintf(outfile, "\n\\cpath ");
TEXDRAW_linecount = 1;
}
fprintf(outfile, "(%d %d)",
(int)((double) ux * TEXDRAW_xscale),
(int)((double) uy * TEXDRAW_yscale));
TEXDRAW_posx = ux;
TEXDRAW_posy = uy;
static void TEXDRAW_endline()
if (TEXDRAW_inline) {
fprintf(outfile, "\n");
TEXDRAW_inline = FALSE;
TEXDRAW_arrow(sx, sy, ex, ey, head)
int sx, sy, ex, ey;
TBOOLEAN head;
char text;
if (head)
text = 'a';
else
text = 'l';
fprintf(outfile, "\\move (%d %d)\\%cvec (%d %d)",
(int)((double) sx * TEXDRAW_xscale),
(int)((double) sy * TEXDRAW_yscale),
text,
(int)((double) ex * TEXDRAW_xscale),
(int)((double) ey * TEXDRAW_yscale));
TEXDRAW_posx = ex;
TEXDRAW_posy = ey;
TEXDRAW_put_text(x, y, str)
int x, y; /* reference point of string */
char str[]; /* the text */
char text;
TEXDRAW_endline();
fprintf(outfile, "\\move (%d %d)",
(int)((double) x * TEXDRAW_xscale),
(int)((double) y * TEXDRAW_yscale));
if (!TEXDRAW_angle)
text = 'h';
else
text = 'v';
if (TEXDRAW_last_justify != TEXDRAW_justify) {
TEXDRAW_last_justify = TEXDRAW_justify;
if (TEXDRAW_justify == LEFT)
fprintf(outfile, "\\textref h:L v:C ");
else if (TEXDRAW_justify == CENTRE)
fprintf(outfile, "\\textref h:C v:C ");
else if (TEXDRAW_justify == RIGHT)
fprintf(outfile, "\\textref h:R v:C ");
fprintf(outfile, "\\%ctext{%s}\n", text, str);
int TEXDRAW_justify_text(mode)
enum JUSTIFY mode;
TEXDRAW_justify = mode;
return (TRUE);
int TEXDRAW_text_angle(angle)
int angle;
TEXDRAW_angle = angle;
return (TRUE);
TEXDRAW_reset()
TEXDRAW_endline();
TEXDRAW_posx = TEXDRAW_posy = 0;